home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / t / tool_manager / toolmanagerv2.1.lha / ToolManager / Goodies / DNetScripts.lha / S / dnetgetfiles.bat next >
Encoding:
DOS Batch File  |  1993-03-21  |  1.1 KB  |  57 lines
  1. ; $VER: DNetGetFiles 1.4 (21.3.93)
  2. ; by Thomas Witt [ EMail: mozart@zelator.in-berlin.de / IRC: `Bach' ]
  3. ;
  4. ; Do the following Entries in Toolmanager 2.0:
  5. ;
  6. ; Programtype: CLI, Arguments on,
  7. ; Command: NewShell CON:352/402/372/80/GetFiles from S:DNetGetFiles.bat
  8. ;                       ^^^^^^^^^^^^^^
  9. ;               Your preferabled size of the Window
  10. ;
  11. ; Set the Variable DNetDL to your preferabled directory for downloads.
  12. ;
  13. ; This File is FD
  14.  
  15.  
  16. Echo "H" NOLINE
  17. UnSet Filename
  18. SetEnv Filename "_DUMMY"
  19. FailAt 22
  20.  
  21. Echo "DNetGetFiles by Thomas Witt"
  22. Wait 1
  23.  
  24. GetString "Filename (CASE SENSITIVE):" VAR Filename
  25.  
  26. IF $Filename EQ "_DUMMY"
  27.   Echo "Aborted..."
  28.   SKIP END
  29. EndIf
  30.  
  31. IF NOT EXISTS ENV:DNetDL
  32.   SetEnv DNetDL "RAM:"
  33.   GetString "Download to which directory ?" STRING RAM: VAR DNetDL
  34. ENDIF
  35.  
  36. Echo "Downloading File `$Filename' to directory $DNetDL"
  37.  
  38. GetFiles -d$DNetDL $Filename
  39.  
  40. IF FAIL
  41.   Echo "File not found or DNet not running"
  42. ELSE
  43.   Echo "Done, file can be found in the Directory $DNetDL"
  44. EndIF
  45.  
  46. LAB END
  47.  
  48. UnSet Filename
  49.  
  50. IF $DNetDL EQ "RAM:"
  51.   Delete >NIL: ENV:DNetDL
  52. EndIf
  53.  
  54. Wait 2
  55.  
  56. EndCLI
  57.